<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>3</cardCount>
<cardID>2996</cardID>
<listID>4561</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on AnotherFieldglobal xx,FNamesput "I am now making a 'Record' field for "&xx&"put xx&"," after FNamesset cursor to busyput the number of cd fields into cfsput cfs+1 into cfsDoMenu "New Field"set name of cd field cfs to xxset rect of cd field xx to 21,102,311,310set style of cd field xx to scrollingset TextAlign of cd field xx to leftset textFont of cd field xx to Genevaset textHeight of cd field xx to 16set textSize of cd field xx to 12set textStyle of cd field xx to plainend AnotherfieldOn FieldCheckglobal FNamesput empty into Fnamesgo to card "records"repeat with ff = 1 to the number of cd fieldsput (the short name of cd field ff)&"," after FNamesend repeatend fieldCheckon DoRecordsglobal TD,TLD,II,FNames,xxset the lockscreen to trueput empty into NCheckput (the number of lines in cd field "funds")-2 into yyrepeat with x = 1 to the number of lines in cd field "funds"put word 1 of line x of cd field "funds" into xxfind xx in cd field "daily"put word 2 of the foundline into FXput word 3 of line FX of cd field "daily" into IINumFormatgo to card "Records" of this stackFieldCheckif FNames contains xx thenput "Stand by: Now updating records for the"&&xx&&"fund."put TLD&"... "&II&return before cd field xxelseAnotherFieldput TLD&"... "&II&return before cd field xxput xx&"," after FNamesend ifgo to cd id 2996if x = yy then exit repeatend repeathide msg boxend DoRecordson Lnformatset cursor to busyglobal FFput 28-(the number of chars in FF) into xrepeat x timesset cursor to busyput "." after yend repeatput " "&y&" " after word one of FFend LNFormaton NumFormatglobal II, TDput "." into DDset cursor to busyif II contains "." thenput "00" after IIrepeat foreverput (the number of chars in II)-2 into ttput char tt of II into DDDif DDD = DD then exit repeatset cursor to busydelete the last char of IIend repeatelseput ".00" after IIset cursor to busyend ifend NumFormaton CloseStackif the freesize of this stack > (the size of this stack * .1) then doMenu "compact stack"end CloseStack</script>
